|
|
|
|
|
|
|
dmMediaType As Long
dmDitherType As Long
dmReserved1 As Long
dmReserved2 As Long
End Type
Private Declare Function EnumDisplaySettings Lib "user32" _
Alias "EnumDisplaySettingsA" ( _
ByVal lpszDeviceName As String, _
ByVal iModeNum As Long, _
lpDevMode As DEVMODE) As Long
Private Sub AddDisplayMode(lpDevMode As DEVMODE)
Dim s As String
With lpDevMode
s = .dmPelsWidth & " x " & .dmPelsHeight & " "
s = s & .dmBitsPerPel & " Bits/Pixel "
If .dmDisplayFrequency > 1 Then s = s & .dmDisplayFrequency & " Hz"
End With
List1.AddItem s
End Sub
Private Sub Form_Load()
Dim dm As DEVMODE
Dim ModeNumber As Long
Dim res As Long
Do
res = EnumDisplaySettings(vbNullString, ModeNumber, dm)
If res Then
AddDisplayMode dm
End If
ModeNumber = ModeNumber + 1
Loop While res
End Sub |
|
|
|
|
|